program example;

uses ex1;

function idenInt(v:integer; l:letter) : integer;
        begin
                idenInt := v;
        end;

function idenLetter(v:letter; l:letter) : letter;
        begin
				idenLetter := v;
        end;

function idenString(v:string; l:letter) : string;
        begin
                idenString := v;
        end;

var plain : array[0..5] of letter = ('p', 'a', 's', 'c', 'a', 'l');
var outputInt : intArr;
var outputLetter : letterArr;
var outputString : stringArr;
var i: integer;
begin
        outputInt := encryptToInt(plain, 6, 1, @idenInt);
		outputLetter := encryptToLetter(plain, 6, 'a', @idenLetter);
		outputString := encryptToString(plain, 6, 'example', @idenString);
        for i:=0 to 5 do
                begin
                        writeln(outputInt[i], ' ', outputLetter[i], ' ', outputString[i]);
                end;
end.
